home *** CD-ROM | disk | FTP | other *** search
/ Computer Life 1995 December / Computer Life December 1995.iso / tapcis / bquotes.scr next >
INI File  |  1995-10-08  |  3KB  |  97 lines
  1. [*About this script*]
  2. This script captures stock quotes from Current Quotes. By default, it
  3. captures a quote for H&R Block stock, the Dow-Jones Industrials Index,
  4. and the Standard & Poors 500 Index. You can capture other quotes,
  5. or additional quotes, by listing the issue symbols under the "*Quotes*"
  6. heading below. You can also "install" this script as a service (with
  7. Setup|Service) and then modify the service.SVC file (in the settings
  8. directory), adding a [*Quotes*] heading and a list of issue symbols to
  9. be used instead of the ones listed in this script file.
  10.  
  11. If the issue symbols you place in the *Quotes* list are entered one per
  12. line, the script will request 10 quotes at a time. If you would prefer to
  13. see the pricing information grouped differently, with fewer or more than
  14. ten symbols per report "page", you can enter multiple symbols on a line,
  15. separating them with commas.
  16.  
  17. If you aren't sure what issue symbols to to use, logon in Interactive
  18. mode and GO SYMBOL, which is part of CompuServe's basic services. For
  19. information and discussion about investing, check out the Investors
  20. Forum (CIS:INVFOR).
  21.  
  22. Loren Jenkins [76702,1006] - September 1995
  23.  
  24. [*Script Setup*]
  25. Title=Get Basic Stock Quotes
  26.  
  27. [*Quotes*]
  28. HRB
  29. DJ 30
  30. SP 500
  31.  
  32. [Begin]
  33. Echo "Getting Current Quotes"
  34. if ( @capName$ = "" ) Let @capName$ = @pathMsg$ @svcName$ '.MSG'
  35.  
  36. WaitList
  37.     1 = "^MIssue:"
  38.     2 = "^J!"
  39.     2 = "^JPress <CR> to continue !"
  40.     3 = "^JIssue:"
  41.     endlist
  42.  
  43. Let @hdrSub$ = "Current Quotes"
  44. Let @hdrNum  = @on
  45.  
  46. Send "GO CIS:CQUOTES"
  47. Wait "^JCurrent Q"
  48. Wait "^J"
  49. CapHeader
  50. Wait "^JEnter ticker"
  51. CapClose
  52. DoWaitList
  53. Let prompt# = @waitMatch#
  54.  
  55. Let reqQuote$ = ""
  56. Let reqCount# = 0
  57. ForEach in Quotes[] gosub "HandleQuotes"
  58. if ( reqQuote$ ) Gosub 'DoCapture'
  59.  
  60. Send ''
  61. Wait "!"
  62. Echo "End of script"
  63. End
  64.  
  65. [HandleQuotes]
  66. if ( @strstr(@arrItem$,",") )    goto 'IssueList'
  67. if ( @strstr(@arrItem$,",") )    return
  68. if ( reqQuote$ ) Let reqQuote$ = reqQuote$ ","
  69. Let reqQuote$ = reqQuote$ @arrItem$
  70. Let reqCount# = reqCount# + 1
  71. if ( reqCount# = 10 ) gosub 'DoCapture'
  72. return
  73.  
  74. [IssueList]
  75. if ( reqQuote$ ) gosub 'DoCapture'
  76. Let reqQuote$ = @arrItem$
  77. gosub 'DoCapture'
  78. Return
  79.  
  80. [DoCapture]
  81. if ( prompt# = 2 ) gosub 'NewPrompt'
  82. Send reqQuote$
  83. Wait "^J"
  84. CapOpen
  85. DoWaitList
  86. Let prompt# = @waitMatch#
  87. Let reqQuote$ = ""
  88. Let reqCount# = 0
  89. CapClose
  90. Return
  91.  
  92. [NewPrompt]
  93. Send '/GO CIS:CQUOTES'
  94. DoWaitList
  95. Let Prompt# = @waitMatch#
  96. Return
  97.